function [Vector]=read_101_u(dir)
if exist('dir','var')
    fid1=fopen([dir,'\101.pch'],'r');
else
    fid1=fopen('101.pch','r');
end
Vector=zeros(0,7);
i=1;
while feof(fid1)==0
    tline1=fgetl(fid1); 
    matches1=strfind(tline1,'$SUBCASE ID =           1');
    if length(matches1)==1   
        tline1=fgetl(fid1); 
        while feof(fid1)==0
            Vector(i,1)=sscanf(tline1(4:16),'%d');   
            Vector(i,2)=sscanf(tline1(20:38),'%f');
            Vector(i,3)=sscanf(tline1(39:56),'%f');
            Vector(i,4)=sscanf(tline1(57:73),'%f');
            tline1=fgetl(fid1); 
            Vector(i,5)=sscanf(tline1(20:38),'%f');
            Vector(i,6)=sscanf(tline1(39:56),'%f');
            Vector(i,7)=sscanf(tline1(57:73),'%f');
            i=i+1;
            tline1=fgetl(fid1);
            if length(strfind(tline1,'$TITLE'))==1
                break
            end
        end
        break
    else       
    end      
end
fclose(fid1);
movefile('101.pch','101+.pch');
end